home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / FSELMGR.MOD < prev    next >
Encoding:
Modula Implementation  |  1993-01-01  |  854 b   |  46 lines
  1. IMPLEMENTATION MODULE FSelMgr;
  2.  
  3. (*
  4. AES File Selector Manager.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*IMP_SWITCHES*)
  10.  
  11. FROM AES    IMPORT IntOut,Addr,crystal,Version;
  12. FROM SYSTEM IMPORT ADR;
  13. AES_SYSTEM_IMPORT
  14.  
  15. #if Seimet
  16. CONST F90 = 05A000202H;
  17.       F91 = 05B000203H;
  18. #endif
  19.  
  20. PROCEDURE FSelInput(VAR Path  : ARRAY OF CHAR;
  21.                     VAR Name  : ARRAY OF CHAR;
  22.                     VAR Label : ARRAY OF CHAR): BOOLEAN;
  23.  
  24. BEGIN
  25.   Addr[0]:= ADR(Path);
  26.   Addr[1]:= ADR(Name);
  27. #if ST
  28. #if ABC
  29. #warning ...taking care of ABC-GEM
  30.   IF (Version() < 0140H) OR (Version() = 0220H) THEN
  31. #else
  32.   IF (Version() < 0140H) THEN
  33. #endif
  34.     crystal(90,0,2,2);
  35.   ELSE
  36.     Addr[2]:= ADR(Label);
  37.     crystal(91,0,2,3);
  38.   END;
  39. #else
  40.   crystal(90,0,2,2);
  41. #endif
  42.   RETURN (IntOut[1] # 0) AND (IntOut[0] # 0);
  43. END FSelInput;
  44.  
  45. END FSelMgr.
  46.